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2 so more i 

2A0 (30 T'O 310 

770 PE :¡. N 7" T A R £ 20 -1 , E M i a :£ ') / 7 ) j F ü R a = 1 T 0 I..EN £a £ j 

280 Ía:fcMIR:í: faí ,a 7 MsPRTNT h £ ;:; IF b:í:-i' V 11 TREN PRTMT EHEiifc 07 ) : 
290 NEXT a 

300 PRTMT ¡ PRTMT ;EOfi a = 1 i "El 200; NEXT a ¡¡RETURN 
RIO PPM #*# TMIETi""i riF| PROGRAMA *** 

370 A í ~'' < A V A M r T ■> '> 11 ;[ r i "! sj|B 2 7 o 
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300 R í mt f a í=. "RFCORF CON TU C'S?A PALACT T CQ " sGOSUB ■“'70 
“¡ 4 o A :S ± 1 ‘ F! r ¡- 1 M R I í s T T o i.. E P A R A C f"i N T T NI i A R 11 s P 0 S LJ B 2 7 Ó 
350 4*4 A RASA!.!. A; PFRO TFNTFNDÜ MLJCHÜ" s GOSI IB 270 
CAO A4:-A'r]i.jTrfAnn riF l\in FSTRFLLARTF CONTRA" sGOSUB 270 
o 7 0 A ■£ =" I. f'l C M i ¡ M F R O S A R T E R O T Ti F S " ; G O S U B 2 7 O 
380 PR T NT 5 A;£-~ " COMTROLFR * " »GÜBIJB 270 

390 AT™"CURSOR ARRIBA"sGOSUR 270;A$="CURSOR ABAJO"sGOSUB 270 

4 O O F* R T N T : A £■ = "Pl.il.. R A .S - P A R A F M P F Z A R'' ; G O S U B 2 7 O 

4 1 O T F I N!< i :;: ' Y (/-.O ) >0 THFN 4 :l O 

420 ROS! IR 700 

430 IMF 0,0:INF 1 ,20 

44;') T W k' 2 ; ri\lk' 3 .’9 

450 PAPFR OsBORriFR O 

4AO MOBF 1 

4 70 PPM 3 sPRTNT STR T NRí (40 .. 97) * "a PUNTOS; O FAI LOS S O 

.V ;STRTNR:£ í 40 ,97) s 

480 ! ..OCATF 1 , 24 s PR T NT S"|''R T UOT (40 " +’ " ) ; 

4 90 Rf'iSl ¡p A70 

ROO X m 1 Y ss 'I ~ Y R= X r. Y R= Y 

5 1 O P=("> * FA=0 

570 FNT i .mo ,-1 ,1 
580 F N T 2 - 1 O O .. 1 .. 1 

540 TF EMB OO ..95 ' THFN PRM 2 U OCA rp J+TNT ( RMí"i ¡1(39) ,4+1 NT CRNDUttB) sPRTNT'"c 
" 5 J ROI IMO I , 1 00 I i"! 1 . 5 , O , O 3 1 

550 TF 19 NT) 70 .. 97 THFN PPM 1 *i OCATF i+TNT ■RNTiíCCP) , 4+ T NT (RNTljK 1 8 ) «RE T NT " H 
" ;; - ROI IMO 2,50 , I O , 1 5 ,0 , .1 

560 TF NOT TMkFY(O) THFN X = X. 1 s.TF X<4 THFN X--4 

570 TF NOT JNk'FY (2) THFi\i X = ,X4 !! ; ! F x ; 23 THFN X=23 

5RO ij 1 4 + 1 ; T F Y >39 THFN Y a 1 

590 I Oí'.ATE Y .. X « RAI I 30000 s OmRFFF (79999) 

6 O O T F C = 9 7 O R C=9 9 O R C = 1 O 2 T H E N P R T N T''»'' s F A=F A +1 * R QIJ N T"i 4 C , 3 O , 1 .5 , O 1 

,.31 i: PDSUB 6 70 

6 1 O T F C= 100 THFN R'ffjJNn 4, 20 , 1 . ¡") , 1 l ::: l , O , ? ¡¡P-.jP45 ; GOSUB 670 
620 PFN 1 

630 ¡ OCATF uB , - B -PPTNT" " : :;! OCATF Y , X i; PR ]' NT " h " 5 
640 X Rir X - VB=Y 

650 GOTO 540 
66 O P() IU 6 An 

670 PFN 1 U, CCAT'F ] O , 2 :: PR T NT Ps! OCATF 31,23PEÍNT FA 
ARO TF FA>4 THFN ROTA 81 O 
6.9.0 RETI JRN 

■' 1 ) í i * ¡ A I Ai ; í"'¡ . 9 /■;, _ | ;■■"! ... !'"i í 1 ,. <'<■ / . ! I 7, 7 ' i i I 

]7 7 O RE STORE 700 

79 O -CR a =30000 Tí") ROOOA sREAD •") i POK'E >=< ,b :NFXT 


730 

S Yf'IBO! 

í-'»*- ; 

FR 97 


740 

S Y MR ni 

97 , 

238 , 'i 30,73R , 0 ,. 

238 1 70,738 s O 

750 

RYMBOI 

98 ; 

254„ 1 7 „ 56 , 108 , 

108 \ 56 s i7,254 

760 

S Y MR ni. 

99 , 

6 0 .. 1 26 ,9:55 ,25? 

, -.i--, i ’■■■,/ 

'i • • • • H - «t 

770 

TTYMBOI 

1 un 

6 'Mi ,47 ..79,93 

, ! 23 ‘ 1 i 7,1. 27 ' 

700 

SYMBU! 

1 01 

a ' ' 5 1 r ? ■ 4 í 1 ' 1 

137,82,2 

790 

S Y MBQ! 

TTÍ2 

, 1 81 ,219 ,255 ,2 

i,“? »:r »:::* *:::* '•) r.r 1 

•• 5 c:. i . » , 


0OO RFf TI !RN 

Si!) ’■■■;P M ■*-*■■* SAME OVFR * * * 

, 1 ■ > i" 1 iíP A® T 11 ! 2y ; 1 - I JiR I-!= 1. i.¡( i | i 1 K.i S ! h P A_ ■■ S!)ÜND 1 -i B , Si , I, ! : ”i ,().(), 3 Si ; N!-•■ X I B 
? NT"X"‘ A 
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830 T IMF O , O : í Mk 1 , 76 : T Mk ? , 1 3 i O í PAPER O ; BORDFR O ; F'EIM 
840 RE'M 2 ?l OCATF 6 ,7 :PRINT"RAMF fiWF'R" 

R50 PFM 1 • I. nnATF 4 '1 2 r, PR T NT " Pl INTCJS : " ; US ING " ######" ; P 

8 6 O P F N 3 : T N k' 3,1 5 • L O C A T E ,17: P R í N T 11 ü T R A ? (S / N) 1 ' 

R 7 o F n R A ~ 1 7 n 3 O c A :i - TIM k F Y $ : N E X T A 

RRO PFM 1 

890 IF T Mk’FY f 60) =0 THFN RIJN 25O 

9 O O T F T l\l K F Y ( 4 A ) = O T I- I F N C A I. I O 

910 00Tí") R90 



MQPF O 
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GOSUB 270 ;Ai-"LOS ANTONES Y SUBMARINOS ENEMIGOS" sGOSUB 770 • Aá>="ANT-EB D 
E 011E BE TE AROTE" :P 0 SUB 2 7 O : A £ = " L A MUNICION" ;BOSUB 27O 
300 PR T NT ■ A$= "CONTROLES : " : GOSUB 270 : Ai- " CURSOR > . DERECHA " : GOSI .IB 770 »A 
■$■-■= "CURSOR <• . I ZPUTERDA" sRGSlIB 270 - A£= "Q . DISF'ARA MTSIL" :GOSUB 270 : A£~" 
A. DISPARA MISTI "¡GOSUB 770 

340 F'RTMT :A±="Pl II ,SA -S- PARA EMPEZAR" :GOSUB 270 

3 El O T F T N K F Y C 6 O1 > O THE N 3 5 O 
360 GOSUB 700 

370 BURDER 8 ; T Mk' O , 20 : J Nl< 2 , t 4 ; T |\lk' 8 , 8 : J Mk' 1. ,26 : MUDE O 
380 INk 1 o , O - T Mk I 1 ,2 s I Wk' t 2 ,6 

390 PAPER RüCl.SsPEN 1. :FOR A=1 TO 25 :RRTNT STRINGi (20,9?) 5 :NEXT A 
400 W T MDOIaI # I 2 ,1.9 ,2,4: WINDOW 2 , 1 9, 6 , 24 : WINDOW #2 , 2 , I 9 , 1 6 , 74 
410 PAPER #7,2:PAPER #1 - 8 :PAPER OsCLS #3:0LS;0LS #7 

4 7 o p = o F A=O ; G O S11B 6 7 O 

4 3 O D;i - O : n 7 =O : Y A=5 ■ Y S = 15 > Y = 1 O 

440 TE IMí;iT JWKFYíRj THEN Y=Y-3 sIF Y<1 THFN Y=i 

4FIO T F í"! t =0 AMD NOT I IMk'E Y (67) THFN SOUMD 1. , 100,1 O , 3 5,0,0,31 : D1 = 1 s X 3 —9 : 

Y 1 =Y+2 

4 6 O I F M O T T W k E Y ¡' 1 ) T H F N Y = Y + 1 ; J F Y > 1 5 T H E N Y = I 5 

470 Tp D7—O AND NOT TMk'EY (695 THEN SOUND .1 ,1.00,* , .1.5,0,0,31 ; D.2= 1 : X ?= 1. J 

5 Y 7=Y ■+• 1 

48O PFN 1 O sPAPER O ;I..OCATE Y , \ O :PR T NT 11 -f g " 

490 YA-YA+3 :TF Y A > 1 A THEN LOCATE 16,3 SPRINT" ":Y'A=1 
500 P E M 11 -1 O c A T F Y A , 3 s P R I' M T " b c '' 

5.10 TE DI =0 THFN 550 

570 LOCATE v 1 _ X I ;PRTNT" " : x 1 = X 1 -1 * T F X I. < 3 THEN D 3=0; GOSUB 650: GOTO 550 
5 8 o p F N ! 7 -1 . o C A T!- Y 1. , X 1 s P R T M T 11 i 1 ' 

540 TF X1 =3 THEN T F Y1=YA+t 0R Y1.=YA+2 THEN A=3 :B=YA+1 sGOSUB 630:D1=0: 
YA =1 

550 PAPER 2sYS=YS-l:IF Yp <1 THEN LOCATE I , 37sPRINT" ";:YS=3 6 

5 6 O PFN 1 si.OcATE YS ,17;PRINT"de " 

570 TF 02=0 THEN 610 

580 ! OCATE Y7 , X2 sPRTNT" " : X2-X.2+ J : TF X?>39 THEN D2=0 sGOSUB 650:GOTO 61 
O 

5 9 O P E N 1 2 i 0 O A T E Y 7 , X 2 5 P RI NT " h " 

600 TF Y7= 1 7 THFN TF Y2=YS+1. OR Y2=YS THEN A= 17 :B= Yñ :GOSUB 630:D2=0:YS 
= 1 A 


AJO RFM 
670 GOTO 440 

ASO SOI IND 1 ,50 ,. 5 s LOCATE R , A : RR T NT " j j " • ROUND 4,400 ,20,15,0,0,33 : P=P+5 : G 
í IñUB 6 7i) 

640 ! ..OCATE B ,A sPRINT" " sRFTURN 
A50 SOI IND 2,50, 5,1 5,0 ,0,31. sFA-FA+1. • GOSUB 670 
660 RETI IRW 

670 1 OCATE # 1 ,2 ,7 : RR 1. NT# I , " P T ; » 5 P ; I _ OCA TE # 1. , 12,2 : PR I NT# I , " FA : " ; FA 
680 I F A >9 THFM 870 
69Q RETIJPN 
700 SYMBOl 
71 O SYMBOL. 


lYMBOí 
730 SYMBOL 
740 SYMBOL. 
750 SYMBOL 
760 SYMBOL. 
770 SYMBOl. 


AETER 97 

97,755, 1 29,1.89,165,165,189,129,255 
98,0,128,193,231 ,255,31,0,0 
99,O,O,194,58,255,250,2,O 
1 00,6,3,7,1.27,111,63,0 ,0 
1 i )! .. (..) ,0,192,251 ,755,243,0 ,0 

102 ,0 ,9,7, 45 ,255,1 77,63,31. 

103 - O , 344 ,224,380,255,254,252,248 
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78o 3YMBüL 104,0,40 ,56,10,56,56,56,16 
790 9YMBOL 105,16,56,56,56,16,56,40,0 
300 9 Y MEO I 06,36,68,1.7,128,63,8 5. , 0,1 47 
810 RETI IPM 

870 RFM * * * GANE OVER *** 

830 POR A=1 TD 20 ; FOP B=100 TO 200 STEP AüSOUND 1. ,B , 1 ,1 5,0,0 ,31 jNFXT B 
sNEXT A 

840 T Mk O ,, O • T Mk" 1 , 36 ; T NK 2,1 5,0 ; PAPER O ; BORDEE O • REN 1. : ÑO DE O 
85o PFJIM 7 si.OCATE 6 7 ?PRTNT"GAMF. GVER'' 

360 PPM 1 *l. OCATE 4,12; F'R INT" PUNTOS : " :¡USINR "###### " .p 
370 PE'M 8 » T l\lk 3,1 5 ü i. ORATE 5 , i ? ; PR T |\!T " OTRA O (g /1 \|) " 

8 8 O F O R A = i T O 5 OsAi=í Ñ k' E Y s ; M E X T A 

390 PPM 1 

9 o O ¡ F T N K F Y ( 6 O ) = O T WE M R! IW ? ! : -| O 

91 O T F T NKF Y (46 ) = O THFN C Al. .1 O 

920 GOTO 900 
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CANIBAL 


1 O R F M * ü< * *. * * t r. A M T R A! ü< * * * ¡i: X * 

20 REM * AIxiApl.. PARCJA DELGADO % 

3O RFM * * üc * * * * X R .. ' .. q .. * * X * X * X * 

40 REM 
50 MUDE' O 

60 Tm-r o ,o í t Ntc '! .. 26 i j Mk' 2 , : r í\!l :i, i o 

70 PAPER o ? BORDER O 

RO flRTGTM 3 IR, >'¡O 

90 FRR .=»«O JO CüíP'i RTFP P'l /70 

•i O O : R| QT o ,0 | 2 

1 4 O ORAW 3 O O i COR í :■ .. 1 50X3 T W ( a ) 

1 2 O riR A IaI R O . 3 o £ s i W (k :■ .. 3 

’( i ;ví ) NI:- X ; 

1 4 O. i-'R I f\[ ! i ; ¡-(R S i 1 i ■ i !" ¡ IRIR S í I í '! 

■| 50 A:t= !l ("’AlM T RAI. " s A~ í ¡. (O ., 5X (|. ET\¡ ■: flí ¡ ; ) 

1.60 ¡OCA TE A.17:PRT!MT A SE: s 
1 / í i R i Ni í ¡ ’ !••■: R S ( :1 ¡ ¡ 1 i-i i-:' S (< : v 

1 RO T |\!l< , 7 .. O ; T MK' 3 O , 1 R 

1 Rí ) E" í ,|R Pi — 1 i” ! i . :i .’ i „ Ri P. !!\|i 1 t t , J. ,J S " NE X i Pi 

200 i ME 2,13,7.116" 3,7 , 1 8 

210 ECR h=!100 Tn ■: RTFP .7;Rí'KJND i ZA , I sROUND 2 ,a* 2 , !i sNFXT pi 

220 ! NL 7 '7 •• T ;\!¡'< R ,, 1 H 

: ■'< o e t ¡R p * i i i Roí i f'JR/X i -i. 

240 ¡pm p - o Ti"! so : rrt\¡T CMRS ¡ 75 -FCR b = 1 TQ 50;NF;XT b-NFXT a 
750 snriE 1 

' ‘ -ti ! i ! i ;i j • ' 

2"?C) PFÍ.T.MT tAil i 20--' EN ( : /'?..• “.r ílS Til LEN ( &■$ ) 

PRO hlP-M I í p,:£ ,, tji ::PR I NT ' ,:í : • TE i". £ < :• " " TREN PRTNT CHES Í7 > :; 

290 NE' V T ,-a 

; loo ■■■■'í *\! i ! :\¡ i :: i ]E’ -i ■■ i 1 i i .■ ( :í ¡ !■ !\.'!■;■ X ' A ri.'i- 1 t iE'i'-J 

rillO REM * MTCTC CE i. E R i! GRAMA * Üi k 

h 2 i; A :í .p ' r. A !\! T R A i ' " s i ■. í "¡31 ; B 2 7 O " i ::: ' R I N "i" 
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33O Aá: =¡ 1 'MATA RON TIJS FL FCHAS A" sG0SUB 27O 

340 A**"I ns CAMIBARES QUE SE INTRODUZCAN" :GOSUB 270 : A:t —"EN TU RAMPAMEN 
10 „ " ;; GOSUB 270 *PR J MT ■ A*= " CONTROL ES : " ; GOSUB 270 ■ Aí~ " CURSOR ARRIPA 11 - RQSI i 
R 77 O :: A*= " El IR SOR • ABAJO " ? GOSUB 270 : Ai= " S'PARE , p j SF'ARA FLECHA " - GOSUB 270 

3 3 o P R TIM T a * - 11 PI 11 . 8 A .S - P A R A F M P F 7 A R " : RO S IIP 7 7 O 

Sé)O I. !”■ I Mk E Y ÍSO) < >i) I l-IR N SAO 

3 7 O G 0 RIJ P A 5 O 

330 PERDER ?6 ; 1 Mk’ 0,26; IMF 1,0: IMF 2,9 
39O PARFR O : Mfir'iF O; PEN 2 

4 O O F O R A = 1 T O 2 O s P R T N T' B T RIN R $ ( 2 O , " e " > ■ : M F X T 

410 WTNPOUI #.1 ,2 5 1 9,7,4 íWTNDOW 2,19,6,24 sRLS #1 ;RLS 
4 7 o n::: 1 ; X = 1 O 5 Y =■ 1 : P=O i F A=O 

430 GOSI IP A70 

4 4 O X R - 1 ; Y R - 5 -i-1M T ( R W P * 1 3 ) 

450 F'EN I 

4A0 nw í"i ROS! IR 500,550. 

470 I.ORATE YE , XR sPRTNT" " ;XC-XC+1. ; IF XR> 1 ? THFN GOSUB 610 
480 I. ORATE' YC ,, XR ?PRINT"a” -LOCATE YC , XC +1 :PRJ!\IT"b " 

490 GOTO 4A0 

5 O O T F N O T T M F F Y ( O ) T H F M X = X.1 * J F X < 7 T H F |\| X 2 

51 o JF Kinr I IMF F Y (2) THFN X = X + 1 . ; T F X>18 THEN X = tS 

520 I ORATE Y , X.1 íPRTMT" LOCATE Y,X+J : PR T NT " LOCATE Y , X ? PR I NT " r: “ 

530 T F NOT T NFF Y ( 47) THFN P=2 ;SOUND 1 , 1 00 , i O ,:! 5 ,0 ,0,31. 

540 RFTI IPM 

550 I .OCATF Y , X :PR T N T.. :Y = Y+1 5 IF Y >17 THEN D=1 sFA=FA+1. ¡¡GOSUB 620:Y = 1 -R 

FT! IRM 

560 I OCATF Y „X •PRTNT ,, r ; 11 . IF Y--YR THEN IF X = XC OR X-XC+1 THEN GOSUB 580 

570 RpTl IRM 

580 8 f)l íNV'i 7 ,600,70,1,5,0 „ O , J O s I .ORATE YR , XR. : RRI NT " r| " - LOCATE YC , XC +1 : PR T N 

T " ,'"í " 


5.9 o P=P+5 • G OS I, IP A 2 o 

600 n=1 s f1 

6 10 ! o R A1 f. y R , X E ;; P R ! M T " 11 :: I. O R A T E Y C X R +1 s P R T N T " " ;XC=1 sY C=5 +1M T i' R N P * 1 3 

) : RF ! "i IRM 

670 i, OCA I F 41 7 ,7 t PR T NT# 1 , " PTOS - " - p • I OCATE # 1 ,1 3,2? PR I NT# 1 , " FA ; " ? FA 

630 ÍF FA >7 THEN 770 

é> 4 í 5 K I- I I I W 


RFM SYMPOi AFT'FR 97 


655 

SYMPOI. 

AFTFR 3 

66 (i 

SYMBí'T. 

9 7,99,6' 

6 / í i 

SYMPOI . 

98,1.90 , 

680 

SYMPOI 

99,0 v O, i 

690 

SYMPRü 

1 00 ,, 1 37 

71") (.') 

SYMPOi 

1 0 i , 1 1 i. 

7 1 0 

RETI IRM 


770 

RFM **# ¡SAME O 1 

77«") 

f- n a 

'! TO 20 ? 

;:K!EXT A 


740 

IMF 0 , 

0:T Nk 1 , 

7510 

PE'N ? : 

L 00ATE 6 

7 AO 

PEN 1 s 

i OCATE 4 

770 

PEN 3 s 

IMF 3,15 

/ !•••) i.) 

FOR A-~ 

1 TO 50H 


o.l 93 ,, 1 2 / , 1. 93 „ O , O 
,32,10,128,17,68,0,146 
1 O I , 1 1 1. , 247 ,232 ,27 , .189, 2 1 9 ,1 96 , 30 


* & t 


00 TO 200 STEP AüSOUND 1,B,1, 
2,15,0 ;PAPER O sBORDER O sF'EN 1 


15,0,0,31 ?NEXT B 
:MGüE O 


¡LOCATE 5,17 SPRINT 
Ai—T NFFY &;NFXT A 


I USTNG 
" OTRA'' 


1 ####**# " ;R 
( 3 / l\¡ ) " 


790 PEN 
ROO 

R 1 O 


1 


T F T M F E Y i 6 O ) = O T H E M RI IN 
T F T IM k'F’ Y i' 4 A ) =■■ O T H E M C A L L 
820 GOTO 800 


4) 
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CAPP-BALL 


R !••>•' 


***** PAPP . RA! i ******** 

* A ¡\! R P i R A R H T A !"l FI... P A Q T) * 
;t¡ ;i: ;íí * * Ü< * Ü: ¡''-i .. T .. S * * * 11 & % t 


Oí '/ I Mí' : ! i j i > !! ! KIK I .•‘/•y “ í í\l¡'? ' . /' '! : ! \:i-- . ;¡ ., ’ ; 

/ ■ ) I--'AE'I- ¡-y' i } J-{¡ )R ! 1 ¡- í j 

RO íl R T R !' Ni 3 '! 3 , 1 f> 

90 POR Tí"; ?*P i' STpP P f 770 

100 P1 !"!"!" 0,0.,'"' 

t 1 O PRAUi 200*003 i a "f , 1.50*3 T NI (;~¡) 
i 2 0 í"i R A W R í") .. 3 O * R T Ni < a) , 3 
í 30 MEXT 9 

1 40 PRTNíT rWRsr (2?) +rNRár ( 1 ) 

.1 50 I npATT- 7 .. 1 2 

1 00 PRTNIT "CAPÍ"'.RA! i " 

;l 7O PR JIMT C MR,;T (22) + fíi-’Rs •; O • 

1 00 T |\il< 7.7 , O : T Wk : ■' .. >") ,j 1 R 

¡90 POR S=í ITT j i ;• pf ’i !|\|J: • .. p , : ., j 5 TJi VT ¿ 

900 '• Mi< 2 , i p T7 MC 3', 7 , : 9 

?10 POP ..900 rn 1 3 TPP -2 ::B¡;29:' 5 ! “SOUUP 2 , :¡ :NIEXT p 

290 T!\ik 2.7; T !\M : 9 . i fi 

290 EOE .v-i::::: í ¡"0 ! 0 ; O !í MF Y T A 

240 POR a »0 Tí'] Sí". : PRI MT PMR2i?> «POP b='¡ TO SO : Nip X T P ;; N E7x 7 a 

200 ROTO Cío 

27? ¡ PP- í !\l'! T'A'R í ■ P;\i i a£ ) - 2'¡ "POR TD LFM (a£) 

200 í,::¡;.:....m ■; ,.2 .w . 1 ¡ 'T'PUv • :¡f:CF ' " " O-IEM PRliSH PER* r?] 

30?'! PP ]• .mt - ■•<?{ r ;\! ? - p: ;p •; Yfj 20O:;N!PXi' ■> -ftpTIJRNi 
310 Ih’FM Ztt '09 T ''P"! jT' • PIPÍ"! O RAM A t'k'k 

320 A:f < OA¿P.RApi ■ :3CTPR 27‘Ó ; PR I NT ; ñí - '' PROCURA T NTRODUCI R TAS BQ 

!. AS" j RfiSi 9: 270 AT“ "íTijv ;'"A;"T-T ’"T RFCHOFTiflR í"¡F APÁ.70" rOOSÜB 270 »A:iir-*'P 


ñFRp ípr A-'ij'nATF DE! SECOGEDOP" ;; GOS! !B 270 

" I' NÍTFKM-" ? ! ; í ‘ " ■ ; PT;; ¡R 270 ;• PR í : A:T= "CONTROL ES ” " ? Ai:= M O i.IR'SOR , RERE 
q.'.R 270 ■ AT-'-TT ;í ¡PsOE- ' . i 7 CUTER DA" sGOSUB 270 ;; A#--" SPACE .. SOLTAR" s13 
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3 * O P p 7 M T ?. A X ~ 1 ' P rili. S A R - P A R A E M P E Z A R ' 1 3 G O S U B 7 7 O 

"95 Oí !P f Ns:F i CAO i , >n i i- !i'"N 3:70 

36n RORí IR 730 

: > 7 (i 1 IV !<• o „ 2 6 s B 0 R f í F R 9 6 j P A P F R o 

38 o i ¡MK 1 . O :: í Nk V A ¡¡ T Nk 3,9 

3S0¿ ' ¡\.T: ¿ , 1!"" 

400 MODF O 

4 1 A p i'.j 4 ; P R T l\ ¡ "i" 3 T R T M G X i 2 O , F 0 R A = 1 T f] 2 3 s P R I W T 11 a a 

a :: ,, 

4 7 ?•) P!T NiT 3TR 7 Mfi X i 2O ,'' a •') ;¡ 

4.70 W 7 NnOW 7,1 2 5 2 , ?4 ; WI MDGW # 1 - .1 4 , 1 9 .. 4 ,'? 

440 Ui I :..:í ::'ik! #7,1 4 , i 9,1 O ;! 3 

4so un Mnnui # 314 , 19 i a, 19 

4A0 Ppí'i ! FA»0 !: RORI IB ARO :: GOSUB ARO :: 60SUB 7 1. O 
4. ?0 i !::.:: 'i 5 YT~¡~=4 ! Y =A 3 00=0 
4RO 3 

4 9 o X P - 1 3 Y B;l + '!'N T f R¡M ¡"¡ * -1 1 > 

SOO PFM 3: i. O RA IT Y .. 'i 4 i: PR '!' KIT " " : 

310 JP Mi')"!" TMkFYíR 1 . TPIFM Y = Y.'!::!!•• YO! 'l'HFN Y = 1 

520 T F MÍT!" TMk'F-Y !'¡ í TMFj\l Y--Y+1 g IF Y > 7 1 THEN Y -= 1 i 

530 T F Cí']-.: O amo XB=74 ANO Vite Y THpN ROUND 1,100,1 grO=1. 

540 I.ORATE Y, 14 Cl')=0 THE ¡Ni PR r J\ET 11 r " El SE PR T M!" " © " ? Y-B”-Y 

oso rr en a." tren goto 590 
5 6O I O0ñT£ YB , XB ::PR'!'NT" " ; sXB-XB +1 

570 T F XB >23 TI-IEN ROI IND 2 , .1 000,30,1.5,0 ,0 , 31 :: FA=rFA+1 GOSI IB ARO g GOTO 490 

5 S O ! O 0 A "I' F Y Fjt, X B g P R '!' N "I"'' a 1 ' » 

5 9 O IF o o = 1 A N n M o' I" 7 N k F Y ( 4 7') T l-l E N I O O A T £ Y , 1 4 p R J M "f " f •• «i... O C A 7" E Y , 1. 5 - p 

Rl NT" i" í ; XB="'j S ?c;ci=0 sFOR A=1.Ó0 TO ROO hTEP SsSOOND 2,A,1 ¡íMFXT a 

A O (') ! O C A I" F Y í"i, 2; 7 s P R I M r» •• * 

ATO YDY i”)■ !■ '[': 

620 TF YI"K'? TI-IITM !"l 

ARO TF YT"i>R TI-lpN Fa.-I 

A40 PFN * | ¡"'iPATF YD . 23 ;PR T NT " bc'd " 5 

650 fR XB=73 l'HFIM Ir YR—Y 7.1 OR YR--YDí -1 OR YB=YD+? TI--IFN GOTO 670 
660 GOTO SOO 

670 Í .üljA'l'F Y O ,23 SPRINT " herí" » i, RO: MD 4,50 ,?0 jníp + l 3 gROSOB ARO 3 GOTO 490 
ARO l.neATF #.'! . í ,1 SPRINT#! , " PTOS" ?l. OCATfc' *;! 2 ',3:PRxNT # 1 . P ;RE'T'tlRN 

ARO L ORA TI";' #2 , 1 ,1 * PR ! NT 1*2 , " KAí. ■ .OR " »LOCATE #? ,:? , 3 t PR T NT ¿2 , FA 

700 i'F FA >4 "THI-'N 830 Fl.Rf RETI ¡PN 

71 O I O í": A T F # 3 ,, ;l .. 1 - p R T M T *t 3 ' 1 C A P P " *1 O C A "i" F # 3 , i , 3 2 p R ]' N 7' tt 3 , '' B AI. L 11 5 R E T ¡ J R 


720 

GOTO 7 

20 


730 

RYMBOi 

A ETER 9.7 


740 

S Y M ROI 

97,0 , i 9 A .. 

1 ■■' 6 .. I 2 ¡::j,, 1 26,1 26,1 2 1 >, '■ > 

7 SO 

R 7HRÍT; 

98 .. 0. 0 0 

3 77 i 1 í “ 1 ? 9SS 



.i ‘ 


7A0 

R Y 9001 

99 ,0 : - 29, 

1 99,1.29 ,, 1 99,1 95 ,255 ,, j 2A 

,'"70 

RYMBOI. 

ioo,o,o , o 

, :í 92 ,227. , 947:. „254 ,?S5 

"7QO 

8 Y MRO! 

' ! 0'! J AO ,13 


790 

RYN-BT'U 

• ' :V ' - > ; 3 ó , 7 

55., 1 95 , 'i 99 .. 1.29 \ 29 ,1 99 

R.00 

í : i Y M W¡"!í 

! 0:3, A 0,5 O 

9,94 ,94 ,i 26 ,60,0,0 

8 1 (: 

R V r TiíO! 

1 •: i 4 , A A R . 

■ A?,R,64,21 ,12R,4? 


bv 1 . ) i-'.' i ■■ I I ! R N 


030 rpr * i. f flfUao ooff tt* 

ó-TO í-ijp A::::.' “!"¡j 20 » FO ib: B»- .1 OO i O 200 STEP A sRniJNTl i , B , 1 , j S , O , O f3 5 NF ! XT B 
. M'" Y ; A 

850 I Mk O O i T Mk 1 ,26 3 7 Mk 2,15,0 : PAPER O : BÜRDER O : PEN 1 g NO DE O 
8 A O P F N 2:1 O O A T F A , 7 g l- : ' R 7 N T'' 0 AME O O E R 11 
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9 7 ("> P E M l ; I ü c A T E 4 , I 2 ; P R ! M T " PIJ M T Q 0 111 ; U SIN G " # # # # *t # " 5 P 

8 8 O p E N 3 : J N k' 3 ,:!, 5 ? I. D C A' r E 5, 1 7 : P R T N T ' 1 ü T R A 7 ( 5 / N ¡ 11 

8 9 O F O R A = r T O 5 O ; A sfc = r M k E Y £ ; M E X T A 

900 PFN I 

91 0 IF T N k E Y (6 ü ) = 0 T H F M R11M ? $ 0 

920 TE Ti\!l i-"Y Í4/0 =:0 THEN PAUL O 

930 GOTO 910 



CARRETILLA 


I O RI"' M * * * # * r. A R R E T T i I A * * X * * * * 

20 REM * AMí-¡ El. GARCIA DEL. BAGO * 

9 O R E M * * * * * * # t El .. T „ Fi .. * * * * t * * # 

40 RFM 

50 MCI DE' O 

ó O T ¡Mi: O , O ; T Mk 1. , 70 < T Mk 2 ,7 3 ]' ¡\¡k 3 , J 8 
70 PAPER O 3 BORDEE O 
80 GRJSIM 31 8 ,2.10 
90 FriE »=0 TD 2*PJ 0'T'E'P PT .''70 

1,00 pi.rrr 0 , 0,2 

II o dR'AIaI ooo&rns ¡ a ) .. 1 50 * 9 . 1 ' w <a ¡ 

1 ? O D R A 41R O , 9 o t .8 T l\l (a ) .. .9 

1 30 ME X T .-■■i 

:l 40 PR T M'i" CHR:£ < 27 ) +CHP* ( 1 ) » 

1 50 !.. OPATF A , 1 7 
1 ó O P RI M T 1 ' C A R R F T 1 l I A " 

1 7 (> P R T M T f": R :■!•: ( 9 7 i + 8 ¡-IR :T i O ; :: 

180 T IMk 2,7,0;! Mk 9,0,19 

190 FOR ,.v, r.: 1 900 íSOUND 7 ,aO!, 1 5 :'MEY7 a 

700 |Mk 2,18,7 5 TMk 3 ,7, 1 R 

7:10 EfíE »¡r3Q0 IT) 1. 9T'EP .7 rSCH JND 1 ,a , 1 ;SOI IMG 2,a*7,1 'sNFXT ."1 

220 TMk 2 ,7 r '!'Mk 3, IR 

2FÍO FOR a~Á T9 500 «IMF t f a 

240 POR ...| .:::0 TE) 50 ; PR TMT l":MRi 71 :■ FQP K -' 1 TQ 5 O 5 MEXT b MMEX'T' a 

250 MEiDE .1. 

2AO GOTO 31.0 

2 7 ("i P R í N T T A p í 2 O - f. F M f a £ ) / 7 ) ; F 0 R b • T Q i 2 N (a £ ) 

90 1 F'j: ,9,2 . , 1 ) ;-■R ! MT hí ; ; ;!- h :£ > " " THEM PRIIMT C M P á: i 7 ! 5 

39 0 :\,EXT ,.¡ 

300 PR TMT - PR !' MT s FREÍ ^si T9 ,7 ¡O ;; ME X V * •• RETI ¡RiV 
910 :o 9 t$. ¡t ; ¡\! ! CTP ("i El C 'R 9913 AMA S JP % 

920 A . rjARRiy r : 1 i; A : " :GÜEiUJH 2*70 ; RR T MT ;; A:¡l?= “ RECOGE CON til CARRETILLA 
¡ 33 ¡ ADR í: ¡„ 39 " :!• : ¡3: ¡B 270 1 A:í : -- : "MRCE8ART[i8 PARA CDMSTRüiR" sGORUB 370:;A$= 
IT TI I 7; ! A! F" : PM i. A P i AYA" :E8 91 j B 27 O ; P R I M T : A £■-- 11 FTI D E J AS C A E E 5 !... A TJ RII. I... Q El 
! r O 9A9 • :: GÍÍ8I.IB 270 ; PR T NT ; ASt- " Cf'INTROL. ES :: " EOS 
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3 3 O A *=" C LIRSO P < , r 7 Q l_J T E R DA" ; G O S U B 2 7 O : A $ = * ‘ C U R S O R > . D E R E C H A < S O L T A R I 
A DRILI O) " s ROSüB 27O s PR T N T ; A $ --"PUL S A - S- P A R A EMPE 7 AR " ; G OSUB 2 7O 
3 4 O r F T M F F Y (A O ) <' > ¡") T H E N 3 4 O 
350 G OBI. IB 590 

3 60 IN K O , 26 5PAPFR O : BORDFR 26 
370 T IMF 1 O T IMF ? , 2 2 I MF 3,74 
380 MODE O 


390 JIMIO I 0,2 2 TIME 1.1,8 

400 PAPFR 3 ;FflR Ai--1. TO 25 SPRINT STRTNG4- (20 , " :i " ) ; sNEXT A 

41 O IaI T IMDOI/J « 1 ,7 , .1 9,7,4 ; CLR tt 1 

470 PAPER O • W TMOFiW 2,1 9,6 ,74 2 CLS 

4 3 O W J M D O W ü 2 , ? O , 2 O , 27,24 : C L 9 # 2 

4 4 (i P O s F A=O ; G G 81.. IB 5 6 O 

450 0=1 sY =9 

4 A O x' I =: 1 : YI. = 2 +1 !M T (RIM D # 1 6 ) 


470 ÍF Kin ¡ TIMIOFY(R) THFN D=1 : Y-Y-1 : J F Y 0 1 THEN Y=1 

4:30 TF KIOT T MI-: F Y (1 ) TURKI D=2 2 Y = Y +1 - J F Y >14 THEM Y = 1 4 : TF CO-OL I FIEN 3 O UN 

D 1. , .1 00 , .1 0 s CD=0 s P=P+f5 ; GOSUB 560 

490 PFN 1.0 :1F 0=2 THEN l .OCATE Y ,18 SPRINT" * " ? sLOCATE Y , 19‘sPRTNT" be 

el " í T F m - 1 THEN LOCATE Y+3,18 sPR JNT" -| " ■ 

500 JF 0=1 THFN LOCATE Y , .18 sPRTIMT" e " ; sLOCATE Y , 19 sPRJNT" haf " —IF 

C ("I = 1 7 l-l F N L 0 C A T F Y +■ 1 ,. 1 3 »P R T IM T " i " • 

5.1 O PF.N 1. 1 si .OCA 1 F Y! ,XJ sF'RIMT" " :XL=XL+1 

5-.'n rp yi -ir THEN TF Yl. >Y AND Y|. 0Y+-5 THEN IF C0=0 THEN C0--1 sSOUND 3,50 
, 7 O 2 G fj T O 4 A O 

5:70 TF XI. >19 TI-IFN LOCATE Yl. , 1.9 2 PRI NT " j " ; SOUND 4 ,200,20,15,0,0 , - 31 :FA=FA 
+ 1 senSU.B 560 i I Oí".ATI-' Yl... , i 9 SPR I NT" " sGOTO 460 
540 l OCATF Yl.. , XI.. sPRJMT" i " - 
550 GOTO 470 


560 LOCATE 3* 1. , 7 ,2- 2 PR T NT # 1 , " PT 2 " - P , LOCATE # 1 ,12,2 : PR I NT # 1 , " F'A 2 " 5 FA 


“170 JF FA>4 TI-IFN 


■: :• 


53:0 

RETI IRIM 


590 

8 Y IMBUI 

AETER 97 

Á¡ ¡¡ ) 

SYMBOL 

97, 0 , 0 , 0 , 1 

A :l 0 

rymbqi 

93 „ 1 4 ,. :¡ 5 ,;! 

620 

SYMBOL 

99,192,55, 

630 

BfMBOL 

100,254,25 

640 

RYMBDI 

1 0 1 ,6 ■; O , 0 , 

650 

SYMBOL 

1 0? , ;l 12,24- 

660 

SYMBOI 

1.03,3,236 , 

670 

SYMBOL. 

104,177,63 

680 

SYMBOI 

1. 05 ,;! 26,23 

690 

SYMBOL 

106,36,145 

700 

SYMBOL 

1.07,3,29,2 

71 O 

RETI IRIM 


720 

REM **# SAME OVER 

730 

FOR A= 

1 TO 70; FOR 

2 IMF X T A 


740 

TIME 0 , 

0 ; I IMF 1,762 

7 fiO 

PFN 2 

1 GG A TE 6,7 si 

760 

PEN 1 . t 

LOCATE 4,12 

7 0 

PEM 3 2 

TNI< 3,1 5 : L ..OI 

730 

FOR A= 

1 TO 50 ;AT=: 

790 

PFN 1 



,15,15,7,14 
,1.5,31 ,57,48,56 


40,248,156 , .12,28 
, 225,1 31,14,14 


62,37,1 52,37,239 


B= 1 00 TT) 200 STEP A 2 SOUIMD 1 , B , 1 ,15,0,0, 3 1 2 NEX T 8 
' NK 2,15,0:PAPER O-BORDER O - REN 1 ;MODE O 


, 1 7 :PRINT " OTRA 7 (S/N)" 

:NEXT A 


8 O O T F T IM K E Y ( 6 O) = O T l -l £ |\| R1.1M 7 5 O 

8.1 O X F T IM |< E Y C 4 6 J = O T H E IM f; AL i. O 

820 Güín ROO 
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Microordenador 

COMMODORE 


Microordenadores 
AMSTRAD, MSX, PC 


CURSO DE 


BASIC+ 


_N°_Piso_Pta._Tel. 

C. Postal_Población_ 

_Provincia_ 

Profesión___ 

CEAC. Aragón, 472 
(Dpto. 108013 Barcelona 


°ft|ffi2A533° C 

*s y&i* enso¬ 


para 

saber cómo 
hablar con los 
ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a Introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de altp nivel. 

Curso CEAC 

de BASIC + Microordenadores: 
un diálogo permanente 
con el ordenador. 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N.° 8039185 

(BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dpto. 08013 Barcelona 

Tel.: (93) 245 33 06 


Edad 




Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica |con experimentos! 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


Nombre y apellidos 


Domicilio. 


deseo recibir a la mayor 
brevedad posible información 
sobre el Curso de: _ 


CEAC 


GRATUITAMENTE 


. 




























